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TITLE = "VAX=11 FRVERT Oe CL IY 
MODULE RECLSRMSIO ( IDENT =" y04-000", 
Pr eves 


BEGIN 


SR ARAARAAAE AAA AAAAEAAAAAAARARAERAAAEAARHEEAEAAARAAAAERCERAAEAAAHEAEREREREEEES 


ie 

ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 

it ALL RIGHTS RESERVED. 

ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ie Y IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
ie ON Eu SION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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® 
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® 
* 


Ooo 


oOo 


ie 

ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 

i® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 

is CORPORATION. 

i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 

is SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

i 

sn daeeaeeearheaiasinentaesiaelaunimeaidgesaanieinatiaiemsabsiaaienieeimatalinin lea eiieniariiahdinteacaaiaaen 


Ok tt td a ot = I I AM OOOOOO 


DONAUSWN (OC VOOVNOUS WN — 


RIPIPIPININAINININID 2 2 OS OS OS OS 


Ssooeoooseses 


-— 


CONV. SRCJRECLRMS 


Oo 
i3a33as3a0 eee 


DOONAN FS WINS OONAULS WUE SH QVOONOu 


Ssssss 
AVANT 


WNC 0ONOuUSwN—o 
Ss 
ww 


NE OY th et te = 


SSSeseseraeee 


i ee | 
> PP 
ee ed cD ee et ee Ded 8 ed oa A a a a a a a tt at et a dt 8 od 8 2 tt 8 tt 8 td tt 


SSSSssssss 


Noo 


VAX=11 CONVERT/RECLAIM 


'e¢ 


15 
HESeoctQUs HAL:GE  WAGTSRUSeRCP bette Mete? ine 


VAX=11 CONVERT/RECLAIM 


VAX/VMS Operating System 
CONVERT/RECLAIM facility RMS 1/0 routines 
ALLOCATE _BUFFERS 

AST_VBN 


OPER FIL 
GET_REXT_BUCKET 


Keith B Thompson 
Peter Lieberwirth Creation date: August-1981 


KBT0554 Keith 8. Thompson 20-Jul-1983 
Init the outsum xab 

KBT0388 Keith 8. Thompson 27-0c t-1982 
Add support for prologue 3 sidrs 

KBT0359 Keith 8. Thompson 6-0c t-1982 
Use new merged ctx definitions 

KBT0352 Keith B. Thompson 5-0c t-1982 
Use new Linkage definitions 


KBT0051 Keith Thompson 10-May-1982 
Remove the check to see if the vbn has been read already and 
fix the bucket address sample compare 


KBT0040 Keith Thompson 3-Apr-1982 
Add rect$q\ search buffer and allocate it. Also make 
sure you tind the Cast data level bucket. 


KBT0009 Keith {honesen 16-Mar-1982 
Store LEVEL of bucket in RIX, correct first VBN at data 
level and make sure the Last bucket at the index levels 
is found. Also correct bug in error processing and fix 
the way we wirte area descriptors. 
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PSECT 
OWN = _CONVSRECL_D (PIC), 
GLOBAL = “CONVSRECL-D (PIC) 
PLI = “CONVSPLI (SHARE PIC), 
CODE = “CONVSRECL_S (SHARE.PIC); 


LIBRARY 'SYSSLIBRARY:118.L32"; 
LIBRARY *SRCS: CONVERT; 


BEANLESSLES 


: 1 

; 1 

; 1 

3 1 

3 1 

3 4 

; 4 

3 1 

i 

; 1 DEF INE_ERROR_CODES; 

; i EXTERNAL ROUTINE 

; «98 1 RECLSSSWAP_BUFFERS : RL$JSB_REG_9 NOVALUE, 
; 99 1 CONV$SREAD~ PROLOGUE  CLSREAD PROLOGUE NOVALUE, 
: 100 1 CONVSSRNS_ERROR NOVALUE> 

: 101 1 CONVSSRMS_OPEN_ERROR : NOVALUE 

3 108 1 CONVSSRMS READ ERROR UE « 

: 1 1 CONVSSGET_VM : CLSGET 

3 104 CONVSSGET~TEMP_VM : CL SCET~ “TEAP. VM; 

: 106 1 FORWARD ROUTINE 

: 10 1 RECLS$SGET_NEXT_BUCKET : RLS$JSB_REG_9 NOVALUE, 
; 108 i GET_LAST_VBN : RLS$JSB-REG_9; 

: 110 1 EXTERNAL 

: 111 1 CONVSAB_FLAGS : BLOCK C ,BYTE J, 

; 118 1 CONVSAB_OUT_FAB : SFAB_DECL, 

: 11 1 CONVSAB_OUT—NAM : $NAMTDECL, 

> 114 1 CONVSAB_OUT-RAB : $RAB~DECL 

3 115 CONVSAB_OUT~XABSUM : $XABSUM “bECL, 

: 117 1 RECLSGL BUCKET COUNT : LONG, 

: #118 1 RECLSGL A_COUN : LONG, | 

; 119 RECLSGL™ “TINDER” CDUNT : LONG: - 
: 121 1 GLOBAL 

: 1 : 1 RECLS$GL_SEARCH_BUFFER : LONG, 

: 1 1 RECL$GL—WRITE_AREA : LONG INITIAL ( 0), 

; 1 4 RECL SEL “WRITE-KEY : LONG INITIAL ( 0): 


ee rcennsio VAX=11_CONVERT/RECLAIM 1$ 
ALLOCATE BUFFERS 14 


3 


15 
$ep-1984 23:57: AX-11 Bliss-32 V4.0-742 
Saat 7 ; £37368 CONV. SRCIRECLRMS1O.832;1 


_ 
— 
— 


ZSBTTL "ALLOCATE BUFFERS’ 
GLOBAL ROUTINE RECLSSALLOCATE_BUFFERS : RLSJSB_REG_9 = 


IO 


! 
Functional Description: 


Allocates serares buffers, two bucket buffers for each level 
and reads in first virtical row of index and data buckets. 


UEWN—OOO 


Calling Sequence: 
RECLSSALLOCATE_BUFFERS() 


MEW 


Input rarameters: 
none 


3 1 

ee 1 1 

: > 1 1 

3; 1 1 1! 

3; (1 1 1! 

3 1 1! 

oY 1 i! 

. 1 1! 

s F 1 1! 

.% 1 1! 

; g 138 4 i 

. § 1 i! 

3 140 1 1! 

3 (141 1 3 1! 

3 \6§ 1 1! 

: 14 140 1! Implicit Inputs: 

3 6144 141 1! none 

3 6145 10g ‘! 

3 136 145 1 ! Output Parameters: 

s 14 144 1! none 

: 308 Oleg SF seettett Gene 

3 ! ¢ utputs: 

; 150 123 . 2 ” none 

3 13 3168 7% 

> 3 ¢ 0149 1 ! Routine Value: 

3 3 3139 . 3 

3 6154 151 1! SS$_NORMAL 

3 155 13 1! 

3 128 1 1 ! Routines Called: 

s 13 154 1! 

; 158 155 1! CONVSSGET_VM 

; 159 0156 1! RECLSSGET_NEXT_BUCKET 
: 160 157 1! GET Last BN 

3; 161 138 1! RECE SSWAP_BUFFERS 

3 166 159 1! 

3; 16 160 1 ! Side Effects: 

3 164 161 1! none 

3: 165 166 1! 

3 196 165 1 !-- 

3; (16 164 1 

; 168 165 BEGIN 

: 169 166 

: 170 16 DEF INE_CTX; 

s 171 198 DEF INE_BUCKET; 

: 17 Ig DEF INE-KEY_DESC; 

. or 1 

3 174 17 LOCAL 

3; 175 1% BYTES 

: 176 17 CTX_SIZE ' Size in bytes of the gontext buffer 
3 (17 17% DAT~BUF_SIZE, i Size in bytes of level 0 bucket buffer 
3 178 102 IDX~BUF SIZE; ! Size in bytes of level >0 bucket buffer 
: : ° 179 : Get the number of bytes for the context block, one for each level 
; i 2 173 CTX_SIZE = ( .KEY_DESC C KEY$B_ROOTLEV J] + 1) * CTXSK_BLN; 
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OBUFFERS 13-50-1984 93:37:63 AX-11 Bliss- cikel té 20-742 


4-Sep-1 

: Get the number of bytes for the data level buffers 

DAT_BUF SIZE = .KEY_DESC C KEYSB_DATBKTSZ J] * BLOCK_SIZE; 

: Get the number of bytes for the index level bucket buffers 
IDX_BUF SIZE = .KEY_DESC C KEYSB_IDXBKTSZ J] * BLOCK_SIZE; 


! Add em up NOTE: ive bu ~¥ buffers for roy level and a search buffer 
: which ndex bucket siz 


] 
BYTES = .CTX_SIZE + (2 * - spat BUF_SIZE + 
‘i ( . IDX F SIZE # .KEY_DESC C KEY$B_ROOTLEV J] ) ) ) + 
.1DX Sr Verte Bs 
: Allocate the virtual memory and point the context block to it 
CTX = CONVSSGET_TEMP_VM( .BYTES ); 


: Set the size, area number and first VBN of the data level bucket 


CONV. she eR ECLRMS10.832;1 


CTX C CTX$W_BUCKET_SIZE J = -DAT BUF _SIZ 
CTX € CTX$B"AREA = .KEY"DESC Key Y$8_D um 3: 
Cix € CTXSLIFIRST_VBN J = KEY “DESC KEYSE P OVEN 


Set up the pointers for the data level buffers 
CTX C CTX$L_CURRENT_BUFFER J = .CTX + .CTX_SIZE 
CTx C CTX$SL-PREVIOUS_BUFFER J = .CTX C CTXSL “CURRENT BUFFER J] + 
-DAT_BUF _SIZE; 
: Set up the pointers for the rest of the context blocks 
BEGIN 


LOCAL 
BUF _PTR; 


: Keep a pointer of where we are in the bucket buffers 
BUF _PTR = .CTX C CTXSL_PREVIOUS_BUFFER J + .DAT_BUF_SIZE; 
‘ Loop once for each level 
incr I FROM 1 TO .KEY_DESC C KEYSB_ROOTLEV J 

BEGIN 

: Point to the next block 

CTX = .CTX + CTXSK_BLN; 

Fill in the buffer pointers etc. 
CTX CTXSL_CURRENT BUFFER J BUF 


PTR 
CTX C CTXSL“PREVIOUS BUFFER ) = ‘BUF “PTR + ,IDX_BUF_SIZE; 
CTX CTXSU7 "BUCKET _STZE J = .1DX"BUF _SIZE; 


Rest 
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RI/RECLAIM 1B-Sen-1984 28:87:36 
CTX C CTXSB_LEVEL J 


: Set soe area number of the block (Since there are two possible areas 
; dependin k ) 


g on the level in the index we must chec 
if 1 EQLU 1 
CTX C CTXSB_AREA ] = .KEY_DESC C KEYSB_LANUM J 
CTX C CTXSB_AREA J = .KEY_DESC C KEYSB_IANUM J; 
BUF _PTR = .BUF_PTR + ( .IDX_BUF_SIZE * 2 ) 
END; 
: The Last piece is the search buffer 
RECLSGL_SEARCH_BUFFER = .BUF_PTR 
END; 


i 


= .1; 


ELSE 


! At the finish of the above loop the context block is pointing 
to the root block 


BEGIN 


LOCAL 
LAST_VBN; 


To read in the first and last bucket im #2<h Level of the index we 
first read in the root then search downward, also set the 

first vbn pointer for the root 

X C CTXSL_NEXT_VBN J EY_DESC C KEYSL_ROOTVBN J; 

x KEY_DESC C KEYSL_ROOTVBN J; 

K EY_DESC C KEYSL_ROOTVBN J; 


CTXSL-FIRST VBN J 
CTXSLIPREVIOUS_VBN ) = 


Read in root bucket 

RECLSSGET_NEXT_BUCKET(); 

: Get the last index record vbn 

LAST_VBN = GET_LAST_VBN(); 

: Loop once for each level NOTE: This loop will also set the first_vbn 
INCR I FROM 1 TO .KEY_DESC C KEYSB_ROOTLEV J) BY 1 

BEGIN 

: Move down the levels 

CTX = .CTX = CTXSK_BLN; 

: Use vbn found for the next get 


' 
i 
i 
: 
cT 
cT 
cT 
: 


WWWAW AWA 


BeBe Se Se Be Se Ge Se Se Se Se Se Se Se Fe Ge Ge Ge Ge Ge Fe Ge Ge Ge Be Ge Fe Ss Ge Ge Se Ge Fe Ge Ge Ge Se Se Se Se Se Se Ge FF S5 Se Ss Ss Se HSH Ss SH Se SH es ee 


RECLSRMSIO 
v04-000 


98 

99 
0 
1 

0 


08 
04 
05 


Ie 


MPI 2 2 = IOOO 
WHO OCONOULS WH "OO® 


WANNA AAA 
MIRITO 


rrr 
ONO 


SBOE EUN—OD 


= 
FUNC OCOwOurwh— 


Wn 


OOOOCO0O0O0O 


UEWN OOo 


OOOO OOOO OooooooooooooOOoOOOOOOOoO 
w 


AAAI AANA AANA 


Pw Po or or or ot or rt or or oT or a ot ot ot oT ot oe or et ot ot al a ala al al al alae a oP oP oP oP oP oy oF oP oP oy oP a oe oF oe 


AREER Ee EEE 
—SOVONOUN SW O@ 


a 18-Sep-19 4 ¢ 37388 AX-11 BL acae Vv 


is 
14-Sep-1984 CONV. SRCIREC 
CTX C CTXSL_NEXT_VBN J] = .LAST_VBN; 
Read in the Last bucket bucket 


RECLSSGET_NEXT_BUCKET(); 


! If this is an index bucket make sure this is the last one in the 

' Level, is not (rms had a update failure) get the last bucket. 

! If it is a data bucket we want to go all the way to the end of the 
chain so we cah start at the beginning of the file 


! Check for Last bucket in chain. NOTE: GET_NEXT_BUCKET sets BUCKET 
' to the current buffer 


uMILE NOT .BUCKET C BKTSV_LASTBKT J 
BEGIN 
Swap the buffers 
RECLSSSWAP_BUFFERS(); 
Get the next bucket in the chain 
RECLSSGET_NEXT_BUCKET() 
END; 
If this is the index level get the last vbn pointer in the bucket 
os -CTX C CTX$B_LEVEL J GTRU 0 
LAST_VBN = GET_LAST_VBN(); 
: Swap the buffers 
RECLSSSWAP_BUFFERS(); 
Get the next bucket in the chain which should be the first 
RECLSSGET_NEXT_BUCKET(); 


! If index level set the first index record vbn (because of duplicates 
etc. this is not always true for data level buckets) 


ir -CTX C CTX$B_LEVEL J GTRU 0 
CTX C CTXSL_FIRST_VBN J = .CTX C CTXS$L_CURRENT_VBN J 
END 


RETURN RECL$_SUCCESS 


OS 
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; 355 0352 1 END; 
-TITLE RE ESAMS10 VAX=-11 CONVERT/RECLAIM 
SIDENT \V04-00 
.PSECT _CONVSRECL_D.NOEXE, PIC,2 

00000 RECLSGL_SEARCH BUFFER: : 

00000000 00004 RECLSGL.URITE AREA 

00000000 00008 eecuse. GATT notes 
.LONG” 0 


0 _MAX (ON NVS_BAD ee 


K $_BADSOR 
SEXTRN CONE CON FQUAL CONVS— CREAT EDSTM 
.EXTRN CONV$~CREA PRI 
NvS- DUP “FON EXTN-ERR 

-EXTRN CONV “DUP “Cond GOS FILLIM 
gE $- LIM, v$_T 


~INSVIRM 
XTRN CONVS INVEKT. C 


-EXTR 
-EXTR 

-EXTR 

SEXT 

SEXT 

-EXTR 

SEXT RG 

EXTR 

-EXTRN CONV$-NOTSEQ, NOWIL 
-EXTRN CONVS-ORDER, CONVS$ OPENEXC 
-EXTRN CONVS_OPENIN CONvS OPE 

-EXTRN CONVS-PAD, C PL 

-EXTRN CONV$_PROERR CORV PROL_WRT 
EXTRN CONVSTR ADERR, CONVS_RSK 
-EXTRN CONVS-RSZ, CONVS_RTL 

-EXTRN CONVS-RTS, CONVS-S 

-EXTRN CONVS_UDF_BKS, conve UDF _BLK 
.EXTRN CONVS-VFC> CONV TEERR 
-EXTRN RECLSSSWAP_BUFFERS 

-EXTRN CONVSSREAD~ PROLOGUE 

-EXTRN CONVSSRMS_ERROR 

-EXTRN CONVSSRMS 0 EN_ERROR 

-EXTRN CONVSSRMS-READ ERROR 

.EXTRN CONVSSGET-VM, CONVSSGET_TEMP_VM 
-EXTRN CONVSAB_FCAGS, CONVSAB_OUT_FAB 
-EXTRN CONVSAB_OUT_NAM 

-EXTRN Sait hea 

-EXTRN CONV S 


Ex $AB~ OUT" XABSUM 

-EXTRN RECLSGL-BUCRET COUNT 

eEXTRN RECLSGL-DATA_COUNT 

~EXTRN RECL SEL INDER_ COUNT 

-PSECT _CONVSRECL_S.NOWRT, She, PIC,2 


1C BB 00000 RECLSSALLOCATE _BUFFERS:: 
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53 
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04 
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58 
01 
2 


50 


oS 
Oo 
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a 93:90:68 


PUSHR #*M<R2,R3,R4> 


Ax-11 pti 
CONV.SRCIR 


mwa 
ot 


AB 9A MOVZBL 9(KEY_DESC), R4 
BF g3 06 MULL 2, Ra, R2 
A2 9E MOVAB (R2), CTX_SIZE 
as 9A 1 MOVZBL 11(KEY_DESCY, DAT_BUF_SIZE 
0 A 91 ASHL DAT _BuF_SIZE,DAT~BUF SIZE 
8 A 1A MOVZBL LOCKE BESCY, IDX_BUF-SIZE 
: 1 SHL " 1DR_ BUF SIZE. 10X"BUF _SIZE 
C MULL 4, IDX“BUF“SIZE., RO 
g0 ADDL2 DAT_BUF SIZE R 

624 MOVAW  (CTR_SIZE)CROI, RO 
21 C 90 ADDL2 IDX_BUF_SIZE, BYTES 

bp PUSHL BYTES 

00006 00 : BSBW © CONVSSGET_TEMP_VM 

4 (tO 000 ADDL2 #4, SP 
9 D 90 8 MOVL RO, CTX 
8 038 MOVW Af_BUF_SIZE, 88(CTX) 
AB 003F MOVB (KEY_DESC), 1(CTX) 
AB DO 00044 MOVL 4(KEY_DESCS, 36(CTX) 
5 ¢ 0049 ADDL3 CTX Size CTX, 4¢CTX) 

BA43 9E 0004E MOV a4(CTX)COAT_BUF SIZE}, 64(CTX) 
AR 4 tes ADDL 64(CTX), DAT BUF SIZE. BUF _PTR 
01 78 00059 ASHL #1, IDX_BUF_SIZE> R 
53 D4 0005D cLRL 
29 11 0005F BRB 4$ 
AA i 9006) 1$ MOVAB 92(R10), CTX 
52 00 00065 MOVL. ®BUF_PTR. 4(CTX) 

51 C1 00069 ADDL3 IDX"BUF SIZE, BUF PTR, 64(CTX) 
51 80 BAe MOVW IDX" BUF-SIZE, 88(TTX) 
33 0 0007 mMOVB =e iT, 2¢ CTR) 
53 pl 0076 CMPL rT 
07 2 0 BNEQ $ 
AB 0078 MOVB (KEY_DESC), 1(CTX) 
05 11 90 BRB 3$ 
AB 90 000 é gs: MOVB 6(KEY_DESC), 1(CTX) 
50 CO 00087 3$: ADDL2 RO, BOF PTR 
24 F 00 A 4S: AOBLEQ R4; I, T$ 
2 pd 000 MOVL 2 é Pfr, RECLS ‘ SEARCH_BUF FER 
AB OD 009 MOVL (REY_DESC), SOTCTX) 
AB OD 0 9 MOVL  12(KEYDESC). G(CTX) 
AB MOVL  12(KEYDESC). 68(CTX) 
909 v 0 BSBW © RECLSSGET_NEXT_BUCKET 
000v A BSBW © GET_LAST_VBN 
p MOVL RO, ~LAST~VBN 
Ag A 000AB MOVZBL 9(KEY_DESC), R3 
3 p4 AF CLRL I 
F 11 1 BRB $ 
AA 9 085 5$: MOVAB -92(R10), CTX 
4 p VL LAST_VBN, 80(CTX) 

0000v BB 6S: BSBW «=- RECLSS$GEf_NEXT_BUCKET 
A B Bias) si (BUCKETS. 7$ 

00006 C BSBW RECL SWAP. BUFFERS 
F4 ¢ BRB 
AA 9 C7? 7$: TSTB (CTX) 

CA BEQL $ 
0000v CC BSBW © GET_LAST_VBN 
DO O00CF MOVL RO, ~LAST<VBN 


oooo°oo Ooooo°o[eoeo 
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; Routine Size: 236 bytes, Routine Base: 


AX-11 Bliss-32 V4.0-742 
CONV. SRCIJRECL 


SWAP BUFFERS 


GET_REXT_BUCKET 


+ 36(CTX) 
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RECLSRMSIO VAX=11 CONVERT/RECLAIM 15-Sep-1984 23:57:2 AX-11 Bliss-32 V4.0-742 Page 11 
yose000 GET_LAST_VBN 12-8001 882 93:97:62 CONV. SRCJRECLAMSIO.B32;1 9 65) 
3 7 3 1 XSBTTL. ‘GET_LAST VBN’ 
; 4 ROUTINE GET_CAST_VBN : RLSJSB_REG_9 = 
: 360 $1 i 
: ¢} : } Functional Description: 
; es : : | Returns the VBN pointer of the last index record in the bucket 
; 69 9 61 Calling Sequence: 
: 367 e§ 1 | GET_LAST_VBN() 
: 369 65 1! Input Parameters: 
: 14 0 $6 : } none 
; 37 $368 1 | Implicit Inputs: 
ee ie oo 
; 375 O37) 1 | Output Parameters: : 
eh Set Phe 
; 378 0374 1 ! Implicit Outputs: 
8 nic 
: 381 0377 1 ! Routine Value: 
: $08 b358 : VBN of the Last index record in the bucket 
; 384 tt} 1 ! Routines Called: 
Bo RET 
: 387 $383 1! Side Effects: 
: 388 0384 1! none 
: 389 0385 1: 
3 390 0386 1 i-- 
; 391 0387 1 
: 39 0388 BEGIN 
: 394 390 DEF INE_CTX; 
: 395 391 DEF INE BUCKET; 
: 396 338 DEF INE-KEY_DESC; 
: 398 $394 LOCAL 
: 399 0395 VBN_FREE_SPACE, 
3 4 0 %6 VBN~POINTER; 
F 40 38 VBN_POINTER = .CTX { CTX$W_BUCKET_SIZE J} = 4; 
; 40% 90 VBN_FREE_SPACE = .BUCKETE .VBN_POINTER, 0, 16, 0 3; 
; 406 é VBN_POINTER = .VBN_FREE_SPACE + 1; 
; 408 4 RETURN .BUCKET [ VBN_POINTER, 
: 410 (¢ .BUCKET C BKTSV_PTR.SZ ]+2)*8), 
} rep 0 0) 
; 418 09 END; 
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RECLSRMSIO VAX=11 Po 18-3 1984 23:57: AX-11 Bliss-32 V4.0-742 
v04-000 GET_LAST_VBN 1273601984 13:70:68 CONV SRCIRECLAMSI0-B 5201 


52 DD 00000 GET_LAST VEN: : 
5 58 AA 3 0002 MOVZWL ghee VBN_POINTER 
1 03 9006 SUBL2 V NTER 
714 F 000 PUSHAB =(VBN_POINTER) (BUCKET) 
50 9€ 3c 0000C MOVZWL a(sP)t, VBN_FREE SPACE 
1 01 AO 9E 990 MOVAB i VBN_POINTER 
50 OD a9 08 0 EF EXTZ es, TSTBUCKET). RO 
4 C4 901 MULL 
50 10 ¢€0 0001C¢ ADDL A RO 
52 6149 50 99 EF OOO1F EXTZV #0" RQ. (VBN_POINTER) CBUCKET], R2 
50 52 dO 00025 MOVL 
04 BA 900 8 POPR Seache> 
05 0002A RSB 
; Routine Size: 43 bytes, Routine Base: _CONVSRECL_S + OOEC 
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CONV. SRCJRECLRMS1IO.832;1 


CONVERT/RECLAIM 15-bep-1984 93:37:63 AX-11 Pi isense V4.0-742 


SBTTL ‘OPEN FILE® 
LOBAL ROUTINE RECLSSOPEN_FILE ( FILE_NAME : \REf BLOCK C ,BYTE J ) = 
Functional Description: 
Opens the input file described by the string descriptor FILE_NAME 
Calling Sequence: 
RECLSSOPEN_FILE( file_name ) 
Input Parameters: 
file_name - Address of a descriptor 
Implicit Inputs: 


Output Parameters: 
non 

Implicit Outputs: 
none 


Routine Value: 

RMS or CONVERT error code or ss$_normal 
Routines Called: 

att 7 lal ag 

CONVSSRMS_OPEN_ERROR 

SSEARCH 


EN 
SDISPLAY 
SCONNECT 
CONVSSGET_VM 
CONVSSRMS_ERROR 
Side Effects: 
Opens the input file and reads in the prologue 


BEGIN 


CAL 

VA_?OINTER, 
BYTES: 

: Allocate some name block buffers 


BYTES = ESA_BUF_SIZ + RSA_BUF_SIZ; 


16 
RECLSRMSIO VAX=11 CONVERT/RECLAIM 14.38 =1984 23:57:25 AX-11 Bliss-32 V4.0-742 Page 14 
vescoco OPEN. FILE | Lancet 8Be 93:36:68 Febnd set seec Pea t5°5sS2, 9 6) 
47 7 
43 VM_POINTER = CONVSSGET_VM ( .BYTES ); 
$2? of } Initialize the rms blocks 
47 P 047 SNAM_INIT ( NAM = CONVSAB_OUT_NAM, 
47 P 047 ESA = .VM_POIRTER; 
47 P 047 ESS = ESA-BUF SIZ, 
480 P 0475 RSA = .VM_POINTER + ESA_BUF_SIZ, 
481 6 RSS = RSA_BUF_SIZ ); 
4 4 Pp 478 SFAB_INIT ( FAB = CONVSAB_OUT_FAB, 
4 P 047 CTX = CONVS_OPENIA, 
485 P 0480 FAC = <BRO,GET,PUT> 
486 P 0481 FNA = .FILE_NAME ' OSCSA_POINTER J, 
487 Pp 2 FNS = .FILE-NAME C DSCSWILENGTH J, 
4 P 04 FOP = NAM, 
489 Pp NAM = CONVSAB_OUT_NAM 
490 04 5 XAB = CONVSAB_OUT-XABSUM ); 
49 P 04 SRAB_INIT ( RAB = CONVSAB_OUT_RAB, 
49 P 0488 FAB = CONVS$AB_OUT_FAB, 
49% 89 ROP = B10 ); 
496 Pp 0491 SXABSUM_INIT ( XAB = CONVSAB_OUT_XABSUM, 
49 3 NXT = 0); 
498 049 
$22 04 Parse the file name 
01 Oe SPARSE ( FAB=CONVSAB_OUT_FAB,ERR=CONVSSRMS_OPEN_ERROR ); 
08 04 ! We are not allowing wildcards 
04 04 i 


o 
wa 


iF s,CONVSAB_OUT_NAM C NAMSV_WILDCARD J 
RETURN CONVS_NOWILD; 
: Search for the file 
SSEARCH( FAB=CONVSAB_OUT_FAB,ERR=CONVSSRMS_OPEN_ERROR ); 
: Open the file 
SOPEN( FAB=CONVSAB_OUT_FAB,ERR=CONVSSRMS_OPEN_ERROR ); 
; Get all good info about the file 
SDISPLAY( FAB=CONVSAB_OUT_FAB ); 
: If the file is not index then error 
Hf gg CONVSAD_OUT FAB C FABSB_ORG ] NEQU FABSC_IDX 
RETURN CONVS_NOTIDX; 
: Make sure it is the correct prologue version 


PUPP PUPVPUDVDPVSVPVSV DUST SVSV SV SUST SVS STASIS SAIN 
WNOVUESWN—OOONOUSWwN—O ~N 
SOOSSSOOOSOSSOOSOSOSOOOSoOSSoO 
RMN 2 2 2 MP FOQOOOOCOSOOSOO Oooo 


PUPP AAAI 


16 
CLSRMS1O VAX=11_ CONVERT/RECLAIM 14-5e -1984 23:57: AX-11 Bliss=32 V4.0-74 
yOe OPEN FILE 1eagee18Re 93:32:88 eMh Bt gece ve Oors2 eee 
; ‘ If «,CONVSAB_OUT_XABSUN C XABSW_PVN J LSS 3 
5 $ RETURN CONVS_PLV; 
; 8 } Connect the stream 
3 35 : 0 SCONNECT( RAB=CONVSAB_OUT_RAB,ERR=CONVSSRMS_OPEN_ERROR ); 
; 2 § } Say that the file is open 
; 3 4 CONVSAB_FLAGS C CONVSV_OUT } = _SET; 
5 4] 6 ! Read the prologue 
; 43 3 8 CONVSSREAD_PROLOGUE (); 
: 545 0540 RETURN RECL$_SUCCESS 
3 sus 0541 . ie 
3 547 0542 1 END; 
.EXTRN SYSSPARSE, SYSSSEARCH 
SEXTRN SYSSOPEN, SYSSDISPLAY 
SEXTRN SYSSCONNECT 
OFFC 00000 ENTRY RECLSSOPEN FILE, Save R2,R3,R4,R5,R6,R7,RB,-; 0411 
58 0006 CF 9E 0000 MOVAB CONVSSRMS_OPEN_ERROR, R11 F 
5A itis CF 9E 0000 MOVAB CONVSAB_OOT _XASSUM, R10 ; 
59 00006 CF 9€ 0000C MOVAB $RMS_PTR, R9 : 
58 00006 CF 9€E 00011 MOVAB $RMS~PTR. 8 : 
57 00006 CF 9E 00016 VAB_  $SRMS"PTR. R : | 
50 AO BF OA 0018 MOVZBL #160, BYT : 0466 
0 p O1F PUSHL > 0468. 
00006 0021 SBW  CONVSSGET_VM : | 
e 8 ; 09 } aoute RO. VM_POINTER ; 
0060 8F 00 6E 09 3¢ O0¢A MOVCS #0, (SP), #0, #96, SRMS_PTR : 0476. 
68 600 0 VW #24578, S$RMS_PTR : 
92 A 2 F 8 0 j MOVB 0, SRMS PTR+2 : 
e OA A6 9E 0003C MOVAB 80(R6), SRMS PTR+4 : 
ge A ” ef 4 bes HOVE #80, Sins PTR® 10 PTR+12 : 
0050 8F 00 6E 09 Be 9 A MOVCS #07 (SP), 40, #80" SRMS_PTR > 0485 
67 5003 8F B MOVW #20483, $RMS_PTR ; 
06 A? 0100009 F p i MOVL aer7s6, SRMS PTR+4 ; 
16 A7 4 F F MOVE «#67, $hns PTR+ 2 : 
18 Nf 000000006 F p HOVE H ON SAOPENIN, RMS_PTR+24 : 
34 A? fA 9 6 MOVAB CONVSAB_OUT_XABSUM, SRMS_PTR+36 : 
8 A? 68 74 MOVAB CONVSAB-OUT“NAM, SRMS_PTR+40 ; 
5 04 AC D 78 MOVL = FIL E. : 
3 A 4 A p 43 MOVL  4(ROT, SRMS PTR+44 : 
is 6 8 MOVE (RO), S$RMS_PTR+52 ; 


LSRMSIO 
vOc~000 
0044 8F 
oc 


3; Routine Size: 


548 


VAX=11 CONVERT/RECLAIM 
OPEN_FILE 


00 


272 bytes, 


0543 


1 


000000006 


000000006 
000000006 
000000006 


000000006 
00006 


Routine Base: 


5. 
14- 
6E 08 2c 5 
69 4401 F 60 5 
Ag 3800 . 
Ag 7 9E 9 
6E 0 2 9 
6A 1 ; 80 A 
$880 F Hf f 
gas. FO 
0 000000006 8F 00 8 
4 BO 
0880 F 6B 0008 
00 2 FB C 
0880 8F 688 000C 
00 $ FB a) 
DD st 
00 1 £8 D6 
20 1D A? 91 BR08 
4 13 000E1 
50 000000006 8F 00 O00ES 
04 QOOEA 
03 OA AA 861 QOOEB 
08 if OOEF 
50 00000000G 8F D0 OO0F! 
04 sta 
0A0O §88F BB O00F 
00 88 FB OOOFD 
CF 0 HH He 
00006 109 
50 01 00 0010C 
04 0010F 


_CONVSRECL_S + 0117 


ane 


1$: 


28: 


3$: 


33° 


pal9ne 42:44 


MOVCS 


33 yer. -11 Bliss-32 V4.0-742 
CONV. SRCIRECLRMS10.832; 1 


#0, (SP), #0, #68, SRMS_PTR 
AY 9, SAMS, PTR 


ea (SPY, ng is SRAS_PTR 
#3094 1 ats PTR 
a mat eans 

AB_OUT RAReS3, 

PCONVS -RowICD, R 
#°M<R7,R11> 
#2, SYSSSEARCH 

gnc R7,R11> 

, “SY SSOPEN 


#1, SYSSDISPLAY 
ON NVSAB_OUT_FAB+29, #32 


#CONVS_NOTIDX, RO 

teen armani. #3 
#CONVS_PLV, RO 

Ag 18 


s1S8¢ 
93 CON FLAGS#2 
COWVSSREAD. RB FLAGS 0 


416 
voc-000" = SET _NEXTouEKET nn” IESeoctgee HAGE Weal 


ro 


; 44 1 ZSBTTL a NEXT BUCKET‘ 

; ‘ ! GLOBAL ROUTINE RECLSSGET_NEXT_BUCKET : RL$JSB_REG_9 NOVALUE = 
; 47 13 

: ¢ a3 } Functional Description: 

3 $ : \ Gets the bucket in the horizontal chain 
; 38 § : Calling Sequence: 

3 60 5 4 RECLSSGET_NEXT_BUCKET() 

: $4 $56 j j, brout Poreneters: 

: 3ee 8 li, Lieit Input 

g nputs: 

: 566 30 11°" ’ 

3 ry 561 1! 

; 568 206 1 Sutpet | t-haesan: 

; 569 0563 1! one 

: 3f0 pees i ving Besa 

; 372 0366 ii 

. or 0567 1: 

3 are 3208 1! ence ™ en 

3; 575 44 1} 

3 ef8 0570 1! 

3 $7 0571 1 ! Routines Called: 

3; 578 0276 1! 

3; 579 0573 1! SREAD 

; 580 0574 1! 

3; 581 0575 1! Side Effects: 

$ o8¢ 9276 1: 

3 3 Tt 1: 

3; 584 578 1 i- 

3; 585 579 1 

; 586 380 BEGIN 

3; 587 : 1 

; 588 § DEF INE_CTX; 

; 589 5 DEF INE— BUCKET; 

; $1 t DEF INE-KEY_DESC; 

; 591 585 

3 4 5 CAL 

; 9 5 LOW Mrs: WORD : WORD, 

5 3e 2 ; LAST_B 

3 38 239 : Set the bucket pointer to the current buffer at this level 
; 338 236 BUCKET = .CTX C CTXSL_CURRENT_BUFFER J; 

; 600 23¢ : A simple check could save an 10 (unfortunatly it causes problems) 
3 602 336 : “IF ( NOT ( .CTX C CTXSL_CURRENT_VBN J] EQLU .CTX C CTXSL_NEXT_VBN J ) ) 
; 59 y BEGIN 

$34 336 

: 606 ! Point RMS to the target bucket 


ib ; 
voc-000 MET NEXT SBUEKET SU” HEREOrH9RE GASEZ:GE  YIMGY! RbSagCPbadta%atS2, 
? 


' 

CONVSAB_OUT_RAB [ RABSL_UBF ] = .BUCK 
CONVSAB_OUT-RAB [ RABSW-USZ 
CONVSAB_OUT-RAB C RABSL“BKT 


= C1 Fens 

CTX TXSL 

: If error signal a readerr 

CONVSAB_OUT_RAB C RABSL_CTX J = CONVS_READERR; 

: Get the bucket 

SREAD( RAB=CONVSAB_OUT_RAB,ERR=CONVSSRMS_READ_ERROR ); 

: Check to see if the bucket is valid 

Check the address sample and check bytes 

LAST_BYTE = .CTX C CTX$W_BUCKET_SIZE J] = 1; 

Get the low word of the longword address 
LOW_ADDRESS_WORD = .CTX C CTXSL_NEXT_VBN J; 

: If there are any errors signal them and stop 

IF ( BUCKET C BKTSW_ADRSAMPLE ] NEQU .LOW_ADDRESS_WORD ) 
aan -BUCKET C BKTSB_CHECKCHAR J] NEQU .BUCKET C .LAST_BYTE,0,8,0 J] ) 


BUM ARIRIIRUNIUNIIN 3 3 3 aa 
UMEWN BOO BNOUNEWN @O0ONOUL WH 


= Ww 
CNAME WN $$ OOONAUES WN $0 OONOUS UN 


BEGIN 
5 3 LOCAL AM _DESC : DESC_BLK; 
: 06 NAM_DESC C DSC$W_LENGTH J] = .CONVSAB_OUT_NAM ([ _NAMSB_RSL J; 
: 06 NAM_DESC C DSCSA-POINTER ) = .CONVSAB_OUT_NAM C NAMSC_RSA 3; 
ore : Signal a readerr with the file name and the vbn which broke 
e086 ? SIGNAL_STOP( CONVS_READERR, 
es § tow8 ext, 
i é CTX C CTXSL_NEXT_VBN J ) 
6 END; 
635 : : Set the new buckets vbn 
es i CTX C CTXSL_CURRENT_VBN J = .CTX C CTXSL_NEXT_VBN J; 
65 5 END; 
re 33 ! Set the next bucket address 
$68 3§ étx C CTXSL_NEXT_VBN } = .@UCKET C BKTSL_NXTBKT J; 


RECLSRMSIO 
v04=000 


664 
665 
666 
667 


3; Routine Size: 


VAX=11 CONVERT/RECLAIM 
GET_NEXT_ BUCKET 
658 
659 RETURN 
660 
0661 END; 
5E 08 
59 04 AA 
0000G CF 59 
0000G CF 58 AA 
0000G CF 50 AA 
0000G CF 00000000G 8F 
0000G CF 
0000G CF 
000000006 00 02 
51 58 AA 
51 
50 50 AA 
50 02 a9 
06 
6149 69 
28 
6E 0000G CF 
04 AE 0000G CF 
0M 
000000006 8F 
‘ 
00000000G_ 8F 
000000006 00 06 
08 AA 50 AA 
50 AA 08 A9 
5E 08 
124 bytes, Routine Base: _CONVSRECL_ 


a. 1 

- sep-19 4 23:57: AX-11 Bliss-32 V 4-0 -742 

14-Sep-1984 $3337 ‘83 CONV. SRC RCIRE ECLAMSI -B32;1 
.EXTRN SYSS$READ 

C2 00000 RECLSSGET NEXT. BUCKET: 

0 90008 VL Ata BUCKET 

DO 000 MOVL BUCKET CONV AB_OUT_RAB+36 

BO 0000C MOVW : (CTXS, CONV$AB_OUT_ Rape 32 

D0 00018 MOVL O(CTX) CONVSAB- 0 

DO 0001 MOVL  #CONV$_READER * EONVEAB BOOT _RAB+24 

9F 00021 PUSHAB CONVSSRMS REAR. 

9F 00025 PUSHAB CONV$AB_00 a 

FB 900¢9 CALLS #2, SYSSREAD 

3¢ 00030 MOVZ2WL 88(CTX), LAST_BYTE 

D7 00034 DECL LAST BYTE 

BO 00036 MOVW O(CTX), LOW_ADDRESS WORD 

B1 O003A CMPW 2(BUCKET), LOW_ADDRESS_WORD 

12 0003E BNEQ 1$ 

91 00040 CMPB =: (BUCKET), (LAST_BYTE) CBUCKETJ 

13 00044 BEQL 2$ 

9B 00046 1$ MOVZBW CONVSAB_OUT_NAM#3, NAM_DESC 

DO 00048 MOVL CONVSAB OUTNAM+4, NAM DESC+4 

DD 00051 PUSHL 80¢C 

DD 00054 PUSHL 

DD 00056 PUSHL SCONVS INVBKT 

9F 0005C PUSHAB NAM_DESC 

DD 0005F PUSHL #1 

DD 00061 PUSHL #CONV$_READERR 

FB 00067 CALLS #6, LI $STOP 

DO OO06E 28 MOVL  80(CTX), 8(CTX) 

DO 00073 MOVL 8(BUCKET), BOCCTX) 

CO 00078 ADDL2 #8, SP 

05 00078 RSB 

$ + 0227 


1 
RECLSRMSIO VAK=11 = | ghana bese 
v04-000 14-Se 


AX=11 Bliss-32 V4.0-742 Page 20 
WRITE_BUCKE (8) 


Or 1984 13:70:68 CONV. sRe dae ECLRMSI0.832;1 


$69 66 1 ZSBTTL ‘WRITE_BUCKET' 

of? vot : FL OSAL ROUTINE” RECLSS$WRITE_BUCKET ( BUCKET_BLOCK ) : RLS$JSB_REG_9 NOVALUE = 
67% 665 1! 

67 R068 1 | Functional Description: 

674 0667 1! 

675 0668 1} Writes the bucket pointed to by the first longword in bucket_block 
676 BOG? 1/ to the VBN given in the second longword 

677 0670 1! 

678 0671 1 | Calling Sequence: 

679 Bo76 1! 

680 731! RECLSSWRITE_BUCKET( bucket_block ) 

681 0674 1: 

68 0675 1! Input Parameters: 

68 0676 1: 

684 0677 1! bucket_block - Pointer to a two lLongword block which looks Like: 
685 0678 1 | 

686 0679 1 ' eeeoeen ese ec re ewe ne awe = 
687 0680 1} Bucket_block : i: Buffer_address | 
688 0681 1 ' | Peewee ooococecce H 
689 0682 1 | ! Target_vbn H 
690 068 See, br oa Se Cie eg CAS OS) lo aia 
691 0684 1! 

69 0685 1 ! Implicit Inputs: 

69 0686 1! J 

694 0687 1! The size of the bucket to be writen is taken from the current 
695 0688 1! context block 

696 0689 1! 

697 0690 1 ! Output Parameters: 

698 0691 1 none 

699 0692 1! 

700 0695 1! mene Din 

701 0694 1: 

70 0695 1! 

70 0696 1 ! Routine Value: 

704 0697 1! none 

705 0698 1! 

706 0699 1 ! Routines Called: 

707 0700 1! 

708 449 1} SWRITE 

709 ne 1! 

710 0703 1 ! Side Effects: 

711 0704 1! 

at 4 - e Bucket check bytes incremented. 

71 706 1! 

714 0707 1 i- 

715 $49 1 

716 709 2 BEGIN 

717 0710 

718 0711 DEF INE_CTX; 

719 gre DEF INE-BUCKET; 

720 71 DEF INE~KEY_DESC; 

721 714 

86 715 CAL 

7 O78 LAST BYTE 

726 071 OuT_BUCKET: REF BLOCK C ,BYTE J; 

725 0718 


/RECLSRMSIO 
, V04-000 


——— eee 


; Routine Size: 


7 


SN NNN NSN 


1_CONVERT/RECLAIM 
BUCKET 
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eoo— 
v0vo 


1984 23:57:25 AX-11 Bliss-32 V4.0=-742 
71382 f 30:08 CONV. SRCJRECLAMS10.832; 1 


m— 
ow 
G 
—— 
te 
vm 


BIND 
BKT_BLK = BUCKET_BLOCK : REF VECTOR C 2,LONG J; 


: Update the check bytes, first point to the buffer and then increment 
! the first check character and then copy it to the last check character. 


OUT_BUCKET = .BKT_BLKC 0 ]; 

Point to the Last byte (final check byte) in the buffer. 
LAST_BYTE = .CTX C CTX$W_BUCKET_SIZE J] = 1; 

Actually update the check bytes. 


A POPIPINPIPINININIPYAINIPPUNININYINIPIPINININININIPININPONPNINIPYD 


07 
07 
07 
07 
07 
07 
i 
07 OUT_BUCKETC BKTS$B_CHECKCHAR ] = .OUT_BUCKETC BKT$B_CHECKCHAR ] + 1; 
073 OUT“BUCKETC .LAST-BYTE, 0, 8, 0 J = TOUT_BUCKETC BRT$B_CHECKCHAR J; 
ors } Point RMS to the target bucket 
073 CONVSAB_OUT_RAB [ RABSL_RBF ) = .BKT_BLK : 02); 
073 CONVSAB_OUT-RAB [ RABSL_BKT J] = .BKTIBLK C1 J; 
07% CONVSAB_OUT-RAB C RABSWRSZ J] = .CTX"C CTX$W_BUCKET_SIZE ); 
are If error signa! a write error 
07% CONVSAB_OUT_RAB C RABSL_C1X J = CONVS_WRITEERR; 
One NOTE: rms_read_errur also works for writes 
O76 SWRITE( RAB=CONVSAB_OUT, 2AB,ERR=CONVSSRMS_READ_ERROR ); 
075 RETURN 
075 
075 END; 
.EXTRN SYSSWRITE 
52 DD 00000 RECL$SWRITE_BUCKET:: 
PUSAL R2 
51 08 AE DO 00002 MOVL @KT_BLK, R1 
50 61 D0 00006 MOVL (R1J, OUT BUCKET 
52 58 AA 3 9009 MOVZwL 88(CTX), CAST BYTE 
60 96 D INCB - (OUT_BUCKET) 
7240 60 90 0000F MOVB (OUTBUCKET), -(LAST BYTE) COUT_BUCKET) 
0000G CF 61 00 0013 MOVL  (R1)> CONV$AB_OUT RAB+40 
00006 CF 04 Al 00 00018 MOVL  4(R1S, CONVSAB_OUT RAB+56 
00006 CF 8 AA BO O01 MOVW  88(CTX), CONVSAB_OOT _RAB+ 
00006 CF 00000000G 8F 0 024 MOVL #CONV$_WRITEERR, CONJSAB_OUT_RAB+24 
00006 CF 9F 0002D PUSHAB CONVS$S$RMS READ ERROR 
00006 CF 9F 00031 PUSHAB CONVSAB OOT RAB 
000000006 00 02 FB 00035 CALLS #2, SYSSWRITE 
04 BA 309 c POPR #*M<R2> 
5 0003€ RSB 


63 bytes, Routine Base: _CONVSRECL_S + 02A3 


nro 
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1 
RECLSRMSIO VAX=11 CONVERT/RECLAIM 15-sep-1984 $3 57 $2 AX-11 Bliss-32 V4.0-742 
v04-000 WEITE_BUCKET 14-Sep-1984 14:05 CONV.SRCJRECLRMSIO.832;1 
: 760 0753 «1 
3; 761 0754 0 END ELUDOM 
eEXTRN LIBSSTOP 
; PSECT SUMMARY 
3 Name Bytes Attributes 
; _CONVSRECL_D i NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC,ALIGN(2) 
: <CONVSRECL—S 738 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
H Library Statistics 
ORR es itn Powe tics hy ee ee ae Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
: .$255$DUA28: CSYSLIBILIB.L32;1 18619 112 0 1000 00:01.8 
> ~$255$DUA28:CCONV.SRCICONVERT.L32;1 165 15 17 00:00.2 


COMMAND QUALIFIERS 


BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:RECLRMSIO/0BJ=OBJ$:RECLRMSIO MSRC$:RECLRMS1O/UPDATE=(ENHS:RECLRMSIO) 


Size 738 code + 12 data bytes 
Run Time: 09:49-2 

Elapsed Time 01:12.2 

Lines/CPU Min: 


184 
Lexemes/CPU-Min: 27493 
Memory Used: 176 popes 
Compication Complete 


roe 
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IGITAL 
ONFIDE 


B0066 


D 
C 


yyy 41 en 


0067 AH-BT13A-SE DIGITAL EQUIPMENT CORPORATION 
VAX/VMS V4.0 CONFIDENTIAL AND PROPRIETARY 


